procedure TForm1.FormShow(Sender: TObject);
begin
  Button1.Hint := 'Line 1' + #13#10 + 'Line 2';
end;
{ #13#10 will break a line }